object LoanForm: TLoanForm
  Left = 396
  Top = 216
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsDialog
  Caption = 'Loan'
  ClientHeight = 425
  ClientWidth = 281
  Color = clSilver
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = [fsBold]
  Scaled = False
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object LoanPayPerLabel: TLabel
    Left = 6
    Top = 164
    Width = 119
    Height = 23
    AutoSize = False
    Caption = 'Payment Period:'
  end
  object LoanNoPeriodLabel: TLabel
    Left = 5
    Top = 192
    Width = 155
    Height = 21
    AutoSize = False
    Caption = 'Number of Periods:'
  end
  object LoanGroup: TRadioGroup
    Left = 0
    Top = -18
    Width = 281
    Height = 177
    Hint = 
      'Select "Principal", "APR", "Payment", or "Down'#13'Payment" for calc' +
      'ulation, given other values.|'
    Ctl3D = True
    ItemIndex = 2
    Items.Strings = (
      'Principal ($):'
      'Annual Interest'
      'Payment ($):'
      'Down')
    ParentCtl3D = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnClick = LoanGroupClick
  end
  object IntPanel: TPanel
    Left = 26
    Top = 64
    Width = 105
    Height = 19
    Alignment = taLeftJustify
    BevelOuter = bvNone
    Caption = 'Rate (APR) (%) :'
    Color = clSilver
    TabOrder = 1
    object Label1: TLabel
      Left = -88
      Top = 29
      Width = 29
      Height = 16
      Caption = 'Rate'
    end
  end
  object LoanPrinEnter: TMemo
    Left = 138
    Top = 6
    Width = 131
    Height = 30
    Hint = 'Enter amount of principal for loan.|'
    Alignment = taRightJustify
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = [fsBold]
    MaxLength = 13
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    WordWrap = False
    OnKeyUp = LoanPrinEnterKeyUp
  end
  object LoanAPREnter: TMemo
    Left = 138
    Top = 50
    Width = 131
    Height = 30
    Hint = 'Enter annual % interest for loan.|'
    Alignment = taRightJustify
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = [fsBold]
    MaxLength = 6
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    WordWrap = False
    OnKeyUp = LoanAPREnterKeyUp
  end
  object LoanPayEnter: TMemo
    Left = 138
    Top = 84
    Width = 131
    Height = 30
    Hint = 'Enter amount of periodic payments.|'
    Alignment = taRightJustify
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = [fsBold]
    MaxLength = 13
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    WordWrap = False
    OnKeyUp = LoanPayEnterKeyUp
  end
  object LoanDropDownBox: TComboBox
    Left = 138
    Top = 162
    Width = 141
    Height = 24
    Hint = 'Select payment period.|'
    Style = csDropDownList
    ItemHeight = 16
    Items.Strings = (
      'Annual'
      'Day (360)'
      'Day (365)'
      'Monthly'
      'Quarterly'
      'Semi-Annual'
      'Weekly')
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
  end
  object NoPerSpin: TSpinEdit
    Left = 170
    Top = 190
    Width = 75
    Height = 26
    AutoSize = False
    MaxLength = 3
    MaxValue = 5000
    MinValue = 1
    TabOrder = 6
    Value = 1
    OnEnter = NoPerSpinEnter
  end
  object HelpButton: TBitBtn
    Left = 202
    Top = 390
    Width = 75
    Height = 26
    Hint = 'Get help...'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
    OnClick = HelpButtonClick
    Kind = bkHelp
  end
  object LoanCloseButton: TBitBtn
    Left = 120
    Top = 390
    Width = 75
    Height = 26
    Hint = 'Return to calculator.'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 8
    OnClick = LoanCloseButtonClick
    Kind = bkClose
  end
  object LoanSolveButton: TBitBtn
    Left = 38
    Top = 390
    Width = 75
    Height = 26
    Hint = 'Solve for selected amounts given amounts'#13'entered.|'
    Caption = '&Solve'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 9
    OnClick = LoanSolveButtonClick
  end
  object LastPayShow: TMemo
    Left = 142
    Top = 220
    Width = 131
    Height = 24
    Hint = 'Show amount of last payment.'
    Alignment = taRightJustify
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ReadOnly = True
    ShowHint = True
    TabOrder = 10
    Visible = False
    WordWrap = False
  end
  object BalanceGroup: TGroupBox
    Left = 2
    Top = 222
    Width = 277
    Height = 163
    Caption = 'Loan Balance Information'
    Color = clGray
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    TabOrder = 11
    object AfterPaymentLabel: TLabel
      Left = 8
      Top = 136
      Width = 153
      Height = 16
      AutoSize = False
      Caption = 'After Payment Number: '
    end
    object LoanBalanceLabel: TLabel
      Left = 10
      Top = 18
      Width = 119
      Height = 16
      AutoSize = False
      Caption = 'Principal Balance:'
    end
    object AccruedInterestLabel: TLabel
      Left = 10
      Top = 44
      Width = 107
      Height = 16
      Caption = 'Accrued Interest:'
    end
    object IntinPayLabel: TLabel
      Left = 10
      Top = 74
      Width = 96
      Height = 16
      Caption = 'Interest in Pmt:'
    end
    object PrinInPayLabel: TLabel
      Left = 10
      Top = 104
      Width = 106
      Height = 16
      Caption = 'Principal in Pmt:'
    end
    object AfterPayNoSpin: TSpinEdit
      Left = 170
      Top = 132
      Width = 75
      Height = 26
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      MaxLength = 3
      MaxValue = 365
      MinValue = 0
      ParentFont = False
      TabOrder = 0
      Value = 0
      OnEnter = AfterPayNoSpinEnter
    end
    object LoanBalanceShow: TMemo
      Left = 138
      Top = 16
      Width = 131
      Height = 25
      Hint = 'Show principal balance after entered'#13'number of payments.|'
      Alignment = taRightJustify
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clLime
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 1
      WordWrap = False
    end
    object AccruedInterestShow: TMemo
      Left = 138
      Top = 44
      Width = 131
      Height = 25
      Hint = 'Show amount of interest paid as of payment'#13'number entered.|'
      Alignment = taRightJustify
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clLime
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 2
      WordWrap = False
    end
    object IntInPmtShow: TMemo
      Left = 138
      Top = 72
      Width = 131
      Height = 25
      Hint = 'Show amount of interest in payment shown.|'
      Alignment = taRightJustify
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clLime
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      MaxLength = 13
      ParentFont = False
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 3
      WordWrap = False
    end
    object PrinInPayShow: TMemo
      Left = 138
      Top = 100
      Width = 131
      Height = 25
      Hint = 'Show amount of principal in payment number'#13'shown.|'
      Alignment = taRightJustify
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clLime
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 4
    end
  end
  object DownPayPanel: TPanel
    Left = 21
    Top = 140
    Width = 91
    Height = 17
    BevelOuter = bvNone
    Caption = 'Payment ($):'
    Color = clSilver
    TabOrder = 12
  end
  object DownPayEnter: TMemo
    Left = 138
    Top = 126
    Width = 131
    Height = 30
    Hint = 'Enter amount of down payment, if any.|'
    Alignment = taRightJustify
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    Lines.Strings = (
      '0')
    MaxLength = 13
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 13
    WordWrap = False
    OnExit = DownPayEnterExit
    OnKeyUp = DownPayEnterKeyUp
  end
  object LastPayRadio: TRadioButton
    Left = 6
    Top = 222
    Width = 127
    Height = 17
    Hint = 'Calculate amount of last payment.'
    Caption = 'Last Payment:'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 14
    Visible = False
    OnClick = LastPayRadioClick
  end
end